home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / HumpBack ••• / HumpBack еее.rsrc / CDEF_2_DialControl.txt < prev    next >
Text File  |  1987-07-31  |  18KB  |  358 lines
  1. start:
  2. 00000000  6000 000A                bra        +0xC /* 0000000C */
  3. 00000004  0000 0000                ori.b      D0, 0x0
  4. 00000008  0000 0000                ori.b      D0, 0x0
  5. label0000000C:
  6. 0000000C  41FA FFF2                lea.l      A0, [PC - 0xE /* 00000000, value 0x6000000A '`\0\0\n', cstring "`" */]
  7. 00000010  21C8 09CE                move.l     [0x000009CE /* ToolScratch */], A0
  8. 00000014  6000 0002                bra        +0x4 /* 00000018 */
  9. label00000018:
  10. 00000018  4E56 FFD6                link       A6, -0x002A
  11. 0000001C  4E71                     nop
  12. 0000001E  4E71                     nop
  13. 00000020  2F0D                     move.l     -[A7], A5
  14. 00000022  2A78 0904                movea.l    A5, [0x00000904 /* CurrentA5 */]
  15. 00000026  302E 000C                move.w     D0, [A6 + 0xC]
  16. 0000002A  6000 0218                bra        +0x21A /* 00000244 */
  17. label0000002E:
  18. 0000002E  206E 000E                movea.l    A0, [A6 + 0xE]
  19. 00000032  2008                     move.l     D0, A0
  20. 00000034  6602                     bne        +0x4 /* 00000038 */
  21. 00000036  4E40                     trap       0
  22. label00000038:
  23. 00000038  2050                     movea.l    A0, [A0]
  24. 0000003A  2008                     move.l     D0, A0
  25. 0000003C  6602                     bne        +0x4 /* 00000040 */
  26. 0000003E  4E40                     trap       0
  27. label00000040:
  28. 00000040  7000                     moveq.l    D0, 0x00
  29. 00000042  1028 0010                move.b     D0, [A0 + 0x10]
  30. 00000046  4A40                     tst.w      D0
  31. 00000048  6700 01F6                beq        +0x1F8 /* 00000240 */
  32. 0000004C  206E 000E                movea.l    A0, [A6 + 0xE]
  33. 00000050  2008                     move.l     D0, A0
  34. 00000052  6602                     bne        +0x4 /* 00000056 */
  35. 00000054  4E40                     trap       0
  36. label00000056:
  37. 00000056  2050                     movea.l    A0, [A0]
  38. 00000058  2008                     move.l     D0, A0
  39. 0000005A  6602                     bne        +0x4 /* 0000005E */
  40. 0000005C  4E40                     trap       0
  41. label0000005E:
  42. 0000005E  41E8 0008                lea.l      A0, [A0 + 0x8]
  43. 00000062  43EE FFDE                lea.l      A1, [A6 - 0x22]
  44. 00000066  22D8                     move.l     [A1]+, [A0]+
  45. 00000068  22D8                     move.l     [A1]+, [A0]+
  46. 0000006A  486E FFDE                pea.l      [A6 - 0x22]
  47. 0000006E  A8A1                     syscall    FrameRect
  48. 00000070  486E FFDE                pea.l      [A6 - 0x22]
  49. 00000074  3F3C 0001                move.w     -[A7], 0x1
  50. 00000078  3F3C 0001                move.w     -[A7], 0x1
  51. 0000007C  A8A9                     syscall    InsetRect
  52. 0000007E  206E 000E                movea.l    A0, [A6 + 0xE]
  53. 00000082  2008                     move.l     D0, A0
  54. 00000084  6602                     bne        +0x4 /* 00000088 */
  55. 00000086  4E40                     trap       0
  56. label00000088:
  57. 00000088  2050                     movea.l    A0, [A0]
  58. 0000008A  2008                     move.l     D0, A0
  59. 0000008C  6602                     bne        +0x4 /* 00000090 */
  60. 0000008E  4E40                     trap       0
  61. label00000090:
  62. 00000090  226E 000E                movea.l    A1, [A6 + 0xE]
  63. 00000094  2009                     move.l     D0, A1
  64. 00000096  6602                     bne        +0x4 /* 0000009A */
  65. 00000098  4E40                     trap       0
  66. label0000009A:
  67. 0000009A  2251                     movea.l    A1, [A1]
  68. 0000009C  2009                     move.l     D0, A1
  69. 0000009E  6602                     bne        +0x4 /* 000000A2 */
  70. 000000A0  4E40                     trap       0
  71. label000000A2:
  72. 000000A2  3028 0012                move.w     D0, [A0 + 0x12]
  73. 000000A6  B069 0014                cmp.w      D0, [A1 + 0x14]
  74. 000000AA  6E00 000C                bgt        +0xE /* 000000B8 */
  75. 000000AE  486E FFDE                pea.l      [A6 - 0x22]
  76. 000000B2  A8A3                     syscall    EraseRect
  77. 000000B4  6000 0120                bra        +0x122 /* 000001D6 */
  78. label000000B8:
  79. 000000B8  206E 000E                movea.l    A0, [A6 + 0xE]
  80. 000000BC  2008                     move.l     D0, A0
  81. 000000BE  6602                     bne        +0x4 /* 000000C2 */
  82. 000000C0  4E40                     trap       0
  83. label000000C2:
  84. 000000C2  2050                     movea.l    A0, [A0]
  85. 000000C4  2008                     move.l     D0, A0
  86. 000000C6  6602                     bne        +0x4 /* 000000CA */
  87. 000000C8  4E40                     trap       0
  88. label000000CA:
  89. 000000CA  226E 000E                movea.l    A1, [A6 + 0xE]
  90. 000000CE  2009                     move.l     D0, A1
  91. 000000D0  6602                     bne        +0x4 /* 000000D4 */
  92. 000000D2  4E40                     trap       0
  93. label000000D4:
  94. 000000D4  2251                     movea.l    A1, [A1]
  95. 000000D6  2009                     move.l     D0, A1
  96. 000000D8  6602                     bne        +0x4 /* 000000DC */
  97. 000000DA  4E40                     trap       0
  98. label000000DC:
  99. 000000DC  3028 0012                move.w     D0, [A0 + 0x12]
  100. 000000E0  B069 0016                cmp.w      D0, [A1 + 0x16]
  101. 000000E4  6D00 000C                blt        +0xE /* 000000F2 */
  102. 000000E8  486E FFDE                pea.l      [A6 - 0x22]
  103. 000000EC  A8A2                     syscall    PaintRect
  104. 000000EE  6000 00E6                bra        +0xE8 /* 000001D6 */
  105. label000000F2:
  106. 000000F2  302E FFE4                move.w     D0, [A6 - 0x1C]
  107. 000000F6  5340                     subq.w     D0, 1
  108. 000000F8  4E76                     trapv
  109. 000000FA  5240                     addq.w     D0, 1
  110. 000000FC  3D40 FFE6                move.w     [A6 - 0x1A], D0
  111. 00000100  206E 000E                movea.l    A0, [A6 + 0xE]
  112. 00000104  2008                     move.l     D0, A0
  113. 00000106  6602                     bne        +0x4 /* 0000010A */
  114. 00000108  4E40                     trap       0
  115. label0000010A:
  116. 0000010A  2050                     movea.l    A0, [A0]
  117. 0000010C  2008                     move.l     D0, A0
  118. 0000010E  6602                     bne        +0x4 /* 00000112 */
  119. 00000110  4E40                     trap       0
  120. label00000112:
  121. 00000112  226E 000E                movea.l    A1, [A6 + 0xE]
  122. 00000116  2009                     move.l     D0, A1
  123. 00000118  6602                     bne        +0x4 /* 0000011C */
  124. 0000011A  4E40                     trap       0
  125. label0000011C:
  126. 0000011C  2251                     movea.l    A1, [A1]
  127. 0000011E  2009                     move.l     D0, A1
  128. 00000120  6602                     bne        +0x4 /* 00000124 */
  129. 00000122  4E40                     trap       0
  130. label00000124:
  131. 00000124  3028 0016                move.w     D0, [A0 + 0x16]
  132. 00000128  9069 0014                sub.w      D0, [A1 + 0x14]
  133. 0000012C  4E76                     trapv
  134. 0000012E  5340                     subq.w     D0, 1
  135. 00000130  4E76                     trapv
  136. 00000132  5240                     addq.w     D0, 1
  137. 00000134  3D40 FFEA                move.w     [A6 - 0x16], D0
  138. 00000138  302E FFE4                move.w     D0, [A6 - 0x1C]
  139. 0000013C  906E FFE0                sub.w      D0, [A6 - 0x20]
  140. 00000140  4E76                     trapv
  141. 00000142  48C0                     ext.l      D0
  142. 00000144  2D40 FFEC                move.l     [A6 - 0x14], D0
  143. 00000148  554F                     subq.w     A7, 2
  144. 0000014A  594F                     subq.w     A7, 4
  145. 0000014C  206E 000E                movea.l    A0, [A6 + 0xE]
  146. 00000150  2008                     move.l     D0, A0
  147. 00000152  6602                     bne        +0x4 /* 00000156 */
  148. 00000154  4E40                     trap       0
  149. label00000156:
  150. 00000156  2050                     movea.l    A0, [A0]
  151. 00000158  2008                     move.l     D0, A0
  152. 0000015A  6602                     bne        +0x4 /* 0000015E */
  153. 0000015C  4E40                     trap       0
  154. label0000015E:
  155. 0000015E  226E 000E                movea.l    A1, [A6 + 0xE]
  156. 00000162  2009                     move.l     D0, A1
  157. 00000164  6602                     bne        +0x4 /* 00000168 */
  158. 00000166  4E40                     trap       0
  159. label00000168:
  160. 00000168  2251                     movea.l    A1, [A1]
  161. 0000016A  2009                     move.l     D0, A1
  162. 0000016C  6602                     bne        +0x4 /* 00000170 */
  163. 0000016E  4E40                     trap       0
  164. label00000170:
  165. 00000170  3028 0012                move.w     D0, [A0 + 0x12]
  166. 00000174  9069 0014                sub.w      D0, [A1 + 0x14]
  167. 00000178  4E76                     trapv
  168. 0000017A  5340                     subq.w     D0, 1
  169. 0000017C  4E76                     trapv
  170. 0000017E  5240                     addq.w     D0, 1
  171. 00000180  3F00                     move.w     -[A7], D0
  172. 00000182  302E FFEA                move.w     D0, [A6 - 0x16]
  173. 00000186  5340                     subq.w     D0, 1
  174. 00000188  4E76                     trapv
  175. 0000018A  5240                     addq.w     D0, 1
  176. 0000018C  3F00                     move.w     -[A7], D0
  177. 0000018E  A869                     syscall    FixRatio
  178. 00000190  2F2E FFEC                move.l     -[A7], [A6 - 0x14]
  179. 00000194  4EBA 00C6                jsr        [PC + 0xC6 /* 0000025C */]
  180. 00000198  4E76                     trapv
  181. 0000019A  A86C                     syscall    FixRound
  182. 0000019C  301F                     move.w     D0, [A7]+
  183. 0000019E  D06E FFE0                add.w      D0, [A6 - 0x20]
  184. 000001A2  4E76                     trapv
  185. 000001A4  5340                     subq.w     D0, 1
  186. 000001A6  4E76                     trapv
  187. 000001A8  5240                     addq.w     D0, 1
  188. 000001AA  3D40 FFE4                move.w     [A6 - 0x1C], D0
  189. 000001AE  486E FFDE                pea.l      [A6 - 0x22]
  190. 000001B2  A8A2                     syscall    PaintRect
  191. 000001B4  302E FFE4                move.w     D0, [A6 - 0x1C]
  192. 000001B8  5340                     subq.w     D0, 1
  193. 000001BA  4E76                     trapv
  194. 000001BC  5240                     addq.w     D0, 1
  195. 000001BE  3D40 FFE0                move.w     [A6 - 0x20], D0
  196. 000001C2  302E FFE6                move.w     D0, [A6 - 0x1A]
  197. 000001C6  5340                     subq.w     D0, 1
  198. 000001C8  4E76                     trapv
  199. 000001CA  5240                     addq.w     D0, 1
  200. 000001CC  3D40 FFE4                move.w     [A6 - 0x1C], D0
  201. 000001D0  486E FFDE                pea.l      [A6 - 0x22]
  202. 000001D4  A8A3                     syscall    EraseRect
  203. label000001D6:
  204. 000001D6  206E 000E                movea.l    A0, [A6 + 0xE]
  205. 000001DA  2008                     move.l     D0, A0
  206. 000001DC  6602                     bne        +0x4 /* 000001E0 */
  207. 000001DE  4E40                     trap       0
  208. label000001E0:
  209. 000001E0  2050                     movea.l    A0, [A0]
  210. 000001E2  2008                     move.l     D0, A0
  211. 000001E4  6602                     bne        +0x4 /* 000001E8 */
  212. 000001E6  4E40                     trap       0
  213. label000001E8:
  214. 000001E8  3028 000A                move.w     D0, [A0 + 0xA]
  215. 000001EC  5340                     subq.w     D0, 1
  216. 000001EE  4E76                     trapv
  217. 000001F0  5240                     addq.w     D0, 1
  218. 000001F2  3F00                     move.w     -[A7], D0
  219. 000001F4  206E 000E                movea.l    A0, [A6 + 0xE]
  220. 000001F8  2008                     move.l     D0, A0
  221. 000001FA  6602                     bne        +0x4 /* 000001FE */
  222. 000001FC  4E40                     trap       0
  223. label000001FE:
  224. 000001FE  2050                     movea.l    A0, [A0]
  225. 00000200  2008                     move.l     D0, A0
  226. 00000202  6602                     bne        +0x4 /* 00000206 */
  227. 00000204  4E40                     trap       0
  228. label00000206:
  229. 00000206  3028 0008                move.w     D0, [A0 + 0x8]
  230. 0000020A  5740                     subq.w     D0, 3
  231. 0000020C  4E76                     trapv
  232. 0000020E  5340                     subq.w     D0, 1
  233. 00000210  4E76                     trapv
  234. 00000212  5240                     addq.w     D0, 1
  235. 00000214  3F00                     move.w     -[A7], D0
  236. 00000216  A893                     syscall    MoveTo
  237. 00000218  3F3C 0003                move.w     -[A7], 0x3
  238. 0000021C  A887                     syscall    TextFont
  239. 0000021E  3F3C 0009                move.w     -[A7], 0x9 /* '\t' */
  240. 00000222  A88A                     syscall    TextSize
  241. 00000224  206E 000E                movea.l    A0, [A6 + 0xE]
  242. 00000228  2008                     move.l     D0, A0
  243. 0000022A  6602                     bne        +0x4 /* 0000022E */
  244. 0000022C  4E40                     trap       0
  245. label0000022E:
  246. 0000022E  2050                     movea.l    A0, [A0]
  247. 00000230  2008                     move.l     D0, A0
  248. 00000232  6602                     bne        +0x4 /* 00000236 */
  249. 00000234  4E40                     trap       0
  250. label00000236:
  251. 00000236  4868 0028                pea.l      [A0 + 0x28]
  252. 0000023A  A884                     syscall    DrawString
  253. 0000023C  42AE 0014                clr.l      [A6 + 0x14]
  254. label00000240:
  255. 00000240  6000 0006                bra        +0x8 /* 00000248 */
  256. label00000244:
  257. 00000244  6700 FDE8                beq        -0x216 /* 0000002E */
  258. label00000248:
  259. 00000248  2A5F                     movea.l    A5, [A7]+
  260. 0000024A  4E5E                     unlink     A6
  261. 0000024C  205F                     movea.l    A0, [A7]+
  262. 0000024E  4FEF 000C                lea.l      A7, [A7 + 0xC]
  263. 00000252  4ED0                     jmp        [A0]
  264. 00000254  4D41                     chk.w      D6, D1
  265. 00000256  494E                     chk.w      D4, A6
  266. 00000258  2020                     move.l     D0, -[A0]
  267. 0000025A  2020                     move.l     D0, -[A0]
  268. fn0000025C:
  269. 0000025C  48E7 C0C0                movem.l    -[A7], D0,D1,A0,A1
  270. 00000260  202F 0014                move.l     D0, [A7 + 0x14]
  271. 00000264  222F 0018                move.l     D1, [A7 + 0x18]
  272. 00000268  2F6F 0010 0014           move.l     [A7 + 0x14], [A7 + 0x10]
  273. 0000026E  610E                     bsr        +0x10 /* 0000027E */
  274. 00000270  48EF 0001 0018           movem.l    [A7 + 0x18], D0
  275. 00000276  4CDF 0303                movem.l    D0,D1,A0,A1, [A7]+
  276. 0000027A  584F                     addq.w     A7, 4
  277. 0000027C  4E75                     rts
  278. fn0000027E:
  279. 0000027E  48E7 3000                movem.l    -[A7], D2,D3
  280. 00000282  2400                     move.l     D2, D0
  281. 00000284  4842                     swap.w     D2
  282. 00000286  C5C1                     muls.w     D2, D1
  283. 00000288  2601                     move.l     D3, D1
  284. 0000028A  4843                     swap.w     D3
  285. 0000028C  C7C0                     muls.w     D3, D0
  286. 0000028E  D642                     add.w      D3, D2
  287. 00000290  4843                     swap.w     D3
  288. 00000292  4243                     clr.w      D3
  289. 00000294  C2C0                     mulu.w     D1, D0
  290. 00000296  D681                     add.l      D3, D1
  291. 00000298  2003                     move.l     D0, D3
  292. 0000029A  4CDF 000C                movem.l    D2,D3, [A7]+
  293. 0000029E  4E75                     rts
  294. 000002A0  48E7 C0C0                movem.l    -[A7], D0,D1,A0,A1
  295. 000002A4  222F 0014                move.l     D1, [A7 + 0x14]
  296. 000002A8  6742                     beq        +0x44 /* 000002EC */
  297. 000002AA  202F 0018                move.l     D0, [A7 + 0x18]
  298. 000002AE  2F6F 0010 0014           move.l     [A7 + 0x14], [A7 + 0x10]
  299. 000002B4  613A                     bsr        +0x3C /* 000002F0 */
  300. 000002B6  2F41 0018                move.l     [A7 + 0x18], D1
  301. 000002BA  4CDF 0303                movem.l    D0,D1,A0,A1, [A7]+
  302. 000002BE  584F                     addq.w     A7, 4
  303. 000002C0  4E75                     rts
  304. 000002C2  48E7 C0C0                movem.l    -[A7], D0,D1,A0,A1
  305. 000002C6  222F 0014                move.l     D1, [A7 + 0x14]
  306. 000002CA  6720                     beq        +0x22 /* 000002EC */
  307. 000002CC  202F 0018                move.l     D0, [A7 + 0x18]
  308. 000002D0  611E                     bsr        +0x20 /* 000002F0 */
  309. 000002D2  4A80                     tst.l      D0
  310. 000002D4  6A04                     bpl        +0x6 /* 000002DA */
  311. 000002D6  D0AF 0014                add.l      D0, [A7 + 0x14]
  312. label000002DA:
  313. 000002DA  2F40 0018                move.l     [A7 + 0x18], D0
  314. 000002DE  2F6F 0010 0014           move.l     [A7 + 0x14], [A7 + 0x10]
  315. 000002E4  4CDF 0303                movem.l    D0,D1,A0,A1, [A7]+
  316. 000002E8  584F                     addq.w     A7, 4
  317. 000002EA  4E75                     rts
  318. label000002EC:
  319. 000002EC  7000                     moveq.l    D0, 0x00
  320. 000002EE  81C0                     divs.w     D0, D0
  321. fn000002F0:
  322. 000002F0  48E7 3E00                movem.l    -[A7], D2,D3,D4,D5,D6
  323. 000002F4  2A00                     move.l     D5, D0
  324. 000002F6  6A02                     bpl        +0x4 /* 000002FA */
  325. 000002F8  4480                     neg.l      D0
  326. label000002FA:
  327. 000002FA  2C01                     move.l     D6, D1
  328. 000002FC  6A02                     bpl        +0x4 /* 00000300 */
  329. 000002FE  4481                     neg.l      D1
  330. label00000300:
  331. 00000300  2400                     move.l     D2, D0
  332. 00000302  2601                     move.l     D3, D1
  333. 00000304  4280                     clr.l      D0
  334. 00000306  4281                     clr.l      D1
  335. 00000308  781F                     moveq.l    D4, 0x1F
  336. label0000030A:
  337. 0000030A  E392                     roxl       D2, 1
  338. 0000030C  E390                     roxl       D0, 1
  339. 0000030E  E389                     lsl        D1, 1
  340. 00000310  B083                     cmp.l      D0, D3
  341. 00000312  6D04                     blt        +0x6 /* 00000318 */
  342. 00000314  9083                     sub.l      D0, D3
  343. 00000316  5281                     addq.l     D1, 1
  344. label00000318:
  345. 00000318  5344                     subq.w     D4, 1
  346. 0000031A  6CEE                     bge        -0x10 /* 0000030A */
  347. 0000031C  4A85                     tst.l      D5
  348. 0000031E  6A02                     bpl        +0x4 /* 00000322 */
  349. 00000320  4480                     neg.l      D0
  350. label00000322:
  351. 00000322  BB86                     xor.l      D6, D5
  352. 00000324  6A02                     bpl        +0x4 /* 00000328 */
  353. 00000326  4481                     neg.l      D1
  354. label00000328:
  355. 00000328  4CDF 007C                movem.l    D2,D3,D4,D5,D6, [A7]+
  356. 0000032C  4E75                     rts
  357. 0000032E  0431 2E32 4100           subi.b     [A1 + <<invalid base displacement size>> + D4], 0x32 /* '2' */
  358.